home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / musique lm (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  762b  |  18 lines
  1. 100 IF F=2 GOTO 200
  2. 110 IF F=0 THEN F=1:LOAD "PLAY.D",8,1
  3. 120 F=2:PRINT "[147][144]":POKE 53280,6:POKE53281,5:PRINTCHR$(14)
  4. 125 PRINT "             [205][160][213][160][211][160][201][160][209] [213][160][197]"
  5. 128 PRINT"  [197] [206][160][160][160][204][160][193][160][206][160][199][160][193][160][199][160][197][160][160][160][205][160][193][160][195][160][200][160][201][160][206][160][197]"
  6. 129 PRINT"         PAR [208]AUL [200]IGGINBOTTOM"
  7. 130 PRINT " [166][166][166][166][166][166][166][166][166][166][166][166] [205][197][206][213][160][205][213][211][201][195][193][204][160][166][166][166][166][166][166][166][166][166][166][166][166]"
  8. 140 PRINT"   1. [212][200][197][160][197][206][212][197][210][212][193][201][206][197][210] ([211]COTT [202]OPLIN)
  9. 150 [153]"   2. RIGHT$(null)(null)VAL(null)(null)RIGHT$(null)(null) #8 (MID$. (null). PEEKACH)
  10. 160 INPUT"             VOTRE CHOIX";N
  11. 170 IF N=1 THEN LOAD "ENTER.D",8,1
  12. 180 IF N=2 THEN LOAD "INVEN8.D",8,1
  13. 190 GOTO 120
  14. 200 SYS 4096
  15. 205 PRINT"[145]                              "
  16. 208 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
  17. 210 GOTO 130
  18.